Skip to main content
This forum is closed to new posts and responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:

HCL Software Customer Support Portal for U.S. Federal Government clients
HCL Software Customer Support Portal

Notes/Domino 6 and 7 Forum

Notes/Domino 6 and 7 Forum


PreviousPrevious NextNext

~Umberto Nongeroson 20.Jan.04 08:14 PM a Web browser
Applications Development 6.0.3 Windows 2000

Sub Click(Source As Button)
'-- Get Front and Backend Document
Dim ws As New NotesUIWorkspace

Dim uidoc As NotesUIDocument
Set uidoc = ws.currentdocument
'-- Document can not be in edit mode
uidoc.EditMode = False

Dim doc As NotesDocument
Set doc = UIDoc.document

'-- Create Session object to access Notes.ini "Directory" value
Dim Session As New NotesSession
Dim dirpath As String, fileName As String
dirpath = session.GetEnvironmentString( "Directory", True ) + "\Quality\*.*"

'-- Loop through all filenames in QUALITY subdir of NDD
fileName = Dir$(dirpath, 0)
Dim rtitem As NotesRichTextItem, object As NotesEmbeddedObject
Set rtitem = doc.GetFirstItem( "Body" )
Do While fileName <> ""
Set object = rtitem.EmbedObject(EMBED_ATTACHMENT, "", fileName)
fileName = Dir$()
Call doc.Save(True, True)
Call uidoc.Close
End Sub

Attach all files within a directory... (~August Opboosi... 20.Jan.04)
. . Sure... (~Dan Elhipister... 20.Jan.04)

Document Options

  Document options
Print this pagePrint this page

Search this forum

Forum views and search

  Forum views and search
Date (threaded)
Date (flat)
With excerpt
Advanced search

Member Tools

RSS Feeds

 RSS feedsRSS
All forum posts RSS
All main topics RSS